PROC boom:
	gAT 40,40 :gFONT 2
	gPRINT " A R M I N G ";
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*",
	PAUSE 10 :gPRINT "*"
	PAUSE 20 :CLS
	gAT 50,40
	gFONT 2
	gPRINT "--->  A R M E D !!  <---"
	PAUSE 30
	CLS
	gAT 20,10
	gPRINT "S E C O N D S  T O  D E T O N A T I O N . . ."
	PAUSE 40
	gAT 40,40
	gPRINT " 5",
			PAUSE 20 :gPRINT "  4",
			PAUSE 20 :gPRINT "  3",
			PAUSE 20 :gPRINT "  2",
			PAUSE 20 :gPRINT "  1",
			PAUSE 20 :gPRINT "  0",
			PAUSE 20
CLS
gAT 60,50
	gPRINT " K  A  B  O  O  M ! !"
	GET
ENDP